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ABSTRACT 

Version IV.O of the UCSD p-System supports con- 
current processes with the use of the SIGNAL and 
WAIT primitive operations on semaphores. By use of 
the ATTACH primitive, semaphores may also be sig- 
nalled by asynchronous interrupts. 

This allows for application programs written in 
Pascal to respond to real-time external events. A sam- 
ple program which does terminal emulation with file 
transmit and receive functions will be presented, along 
with a program which illustrates control of hardware 
functions of bit-oriented devices from a high-level 
language. 

The UCSD p-System provides a convenient basis 
for software development on a large variety of micro- 
computers. Highly interactive, user-friendly programs 
may be constructed to fill a variety of single-user, per- 
sonal workstation computing needs. However, many 
useful applications of microcomputers involve re- 
sponse to real-time events, and asynchronous control 
of devices which do not fall into the usual categories of 
printers, consoles, or character-oriented devices. The 
control of bit-oriented and analog devices by programs 
running under the UCSD p-System has been difficult 
or impossible until the release of Version IV.O. 

Even without entering the realm of real-time ma- 
chine control, a very common problem facing the pro- 
grammer of a p-System personal workstation has been 
the construction of a ‘terminal emulator’ program, to 
allow communications to a remote host computer 
through a modem or other serial communications link. 
Appendix 1 contains a listing of a UCSD Pascal pro- 
gram which solves this problem for the specific case of 
communicating with Telemail, an electronic mail ser- 
vice available on GTE Telenet. The program is not rep- 
resented as being completely general-purpose and user- 
configurable, nor is it transportable to other p-System 
versions in object code form. However, modifications 
to the source text to fit other machines would be minor, 
provided the target implementation' supports the at- 
tachment of external events to semaphore data 
structures. 

For tutorial purposes, a much smaller and simpli- 
fied version of the program is listed in Appendix 2. The 
basic algorithm is as follows: 

repeat 

{if a key is struck on the keyboard, send the char- 
acter out to the modem} 

{if a character is received from the modem, display 
the character on the screen} 



until finished; 

A first attempt to code this in Pascal might look 
something like this: 

repeat 

read(key board, ch); 
write(remote ,ch) ; 
read(remote,ch); 
write(output,ch) ; 

until finished; 

. . .which is quickly found to be of little use in 
practical time-sharing applications, since only one 
character from the host can be displayed for every char- 
acter from the keyboard. 

A solution which works on Version II. 1 uses the 
Unit_Status system intrinsic to find out how many char- 
acters are in the input queue for the console and remote 
units: 

repeat 

Unit_Status(l, digits, 1); 
if digits[0] <> 0 
then 

begin 

for i := 1 to digits[0] do 
begin 

read(keyboard,ch); 

write(remote,ch) 

end; 

end; 

Unit_Status(7, digit s,i); 
if digits[0] <> 0 
then 

begin 

for i := 1 to digits[0] do 
begin 

read(remote,ch); 

write(output,ch) 

end; 

end; 

until finished; 

While this solution is adequate as presented, the 
overhead of the polling technique, combined with the 
desire to have more functions supported, make it dif- 
ficult to keep up with a continuous 300 baud data 
stream. Practical terminal emulators with features such 
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as file transmission and printer hardcopy became very 
large and complex, resorting to obscure Pascal coding 
tricks and to assembly-language external procedures in 
an attempt to sustain a 300 or 1200 baud data rate. 

Version IV.O, as currently implemented on all TI 
990 computers which support interrupts from charac- 
ter-oriented p-System devices, allows a ‘full-function’ 
terminal emulator program to be written with compar- 
ative ease, since language constructs are available 
which match the problem to be solved. This makes the 
main body of the terminal emulator appear effectively 
as: 

repeat 

{Nothing} 
until finished; 

. . .since all the work is done by processes which 
are activated in response to external events. 

These language extensions include a new data type 
(SEMAPHORE), a new block type (PROCESS), and 
five new pre-defined global procedures (ATTACH, 
SEMINIT, START, SIGNAL and WAIT). All except 
ATTACH are intended to be machine-independent con- 
structs, and can be used on systems which do not sup- 
port external asynchronous events. The use of these 
language features is described in the Version IV.O 
Users’ Guide, however, since the ATTACH intrinsic is 
somewhat machine-dependent, a description of the im- 
plementation on TI 990 computers is given here. 

Just as a real processor needs to finish (or at least, 
bring to some orderly suspension point) the current 
machine instruction before handling an external inter- 
rupt, so must the p-machine. In practice, all of the p- 
machine interrupts which were generated by the real 
machine during the interpretive execution of the prior 
p-machine instruction are recognized before the next 
p-machine instruction is fetched. P-machine interrupts 
are selectively enabled by ATTACHing a SEMA- 
PHORE to an interrupt level, and disabled by. AT- 
TACHing the value NIL to an interrupt level. The prior- 
ity of the p-machine interrupt is determined by the 
priority of the PROCESS which is WAITing on the 
SEMAPHORE. In the current 990 implementation, 32 
p-machine interrupts are supported; 64 will be sup- 
ported in the IV. 1 release in an effort to standardize the 
use of ATTACH on all p-System processors. 

It is important to note the difference between a p- 
machine interrupt and an interrupt generated by hard- 
ware and handled by the real processor. For example, 
the 990/10 receives a hardware interrupt on level 5 
every 1/1 20th of a second. The machine code which 
handles this interrupt maintains a 32-bit integer which 
represents the time of day, but only on the full 1-second 
intervals does it generate the p-machine interrupt level 
16, and then only if level 16 has been enabled by having 
had a SEMAPHORE ATTACHed to it. As a conse- 
quence, the DS990 Model 1 can run exactly the same 
Pascal PROCESS for handling the p-machine level 16 
interrupt, even though the real-time clock on the Model 
1 generates hardware level 2 interrupt every 250 milli- 
seconds. These differences are handled in the machine 
code which services the interrupt, so that the Pascal 
programmer sees a consistent p-machine interrupt 
structure. 



Another advantage to this de-coupling of hardware 
and software is that several p-machine interrupts can 
be generated by the same hardware interrupt under dif- 
ferent circumstances, for example, a 0.1 second and a 
10 second p-machine interrupt. Or more than one hard- 
ware interrupt could signal the same p-machine inter- 
rupt. Obviously, every hardware interrupt must have 
some machine code in place to handle the interrupt, but 
the amount of processing required in machine code 
could be as simple as acknowledgement of the interrupt 
bit and a generation of the appropriate p-machine in- 
terrupt. External (machine code) procedures are easily 
written which can be called from a Pascal program to 
effect CRU I/O and TILINE I/O. 

Appendix 3 describes the requirements of a soft- 
ware driver which takes the output of a text formatter 
program and controls a letter-quality printer. In this 
case, the printer has a 24-bit parallel interface. The en- 
coding of the print-stream information was designed 
with an assembly-language driver program in mind, but 
the Pascal solution given was much easier to write, and 
could be transported with a minimum of trouble. Fur- 
ther, the same Pascal source can be easily modified to 
interface a variety of different output devices to the 
same print-stream protocol, including the H-P 7220A 
plotter which produced the overhead projection texts. 

The preparation and production of this paper on a 
personal workstation computer running the UCSD p- 
System is a (somewhat needless) demonstration of the 
usefulness of the p-System in an office environment. 
Likewise, the fact that the entire p-System can be main- 
tained and re-generated on the same machine is no sur- 
prise to system software developers who have used the 
p-System. However, the introduction of several new 
factors in Version IV.O now makes possible the appli- 
cation of the p-System to a large subset of the problems 
which previously required assembly-language operat- 
ing systems for real-time process control. Use of 
ATTACHed Pascal PROCESSes, coupled with ma- 
chine-code interrupt handlers, external I/O primitive 
routines, and the use of the Native Code Generator to 
produce machine code from Pascal p-code, will allow 
many real-time applications to be easily implemented 
in a high-level, transportable language and Operating 
System. 

Appendix 1 

{ + 

i Terminal emulator program for use with I 

| GTE Telenet and the Telemail service. I 

I I 

I Uses interrupts from the keyboard, remote, I 

I and 1-second interval timer, ATTACHed to ‘ 

I SEMAPHORES which are WAITed on by several I 

I PROCESSes. I 

I I 

I Fritz Whittington, Texas Instruments, Inc. I 

■-- ) 

program telemail; 

const 

cl ocksig = 16; 
keys i g = 17; 
remsig = 18; 

var 

pt r : i nt ege r ; 
tick, 
godump, 
wait i ng , 
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key ready , 
remready , 
eolecho, 
reply : 
p i d : 
PS 



keycli , 
remch , 
ret : 
ch : 
dumping , 
quitt ing: 

i » 
j * 

f name , 
mail, 
username , 
password, 
al tuser , 
a 1 1 pas s , 
termtype, 
logoff : 



ff ; 
gg! 
buff: 



semaphore ; 
p r oce s s i d ; 
packed record 

case integer of 

1 : ( a: packed array 

[0 . .80] of char) ; 
2: ( s: string [80]); 

3:. ( k: integer) ; 

( x: integer; 

onl ine: boolean) ; 

end ; 



packed array [ 0 . - 1 ] of char; 
char ; 

boo 1 ean ; 

integer ; 



string; 

file; [the log file} 

interactive; [the file to transmit] 

packed array [G..1023] of char; 



begin 

repeat 

wait (godump) ; 
semi nit(eolecho,0); 
if dumping then 
beg i n 

while not eof(gg) do 
beg i n 

readln(gg . s) ; 
wr i teln(s ) ; 

{ $R- ) 

mover ight(s[l],s[2],ien 
unitwrite(8,s[2], length 
16396) ; 



{ $R+ 1 



t h ( s ) ) ; 
s ) , , 



un it write(8, ret, 1,, 16396) ; 
wait (eolecho) ; 



end ; 

close(gg, lock) ; 

writelnT' Closing File: ',fname, 
wr i t el n; 

dumping := false; 
end ; 

unt i 1 qu i 1 1 i ng ; 
end {dumper } ; 



procedure dofl; 
beg i n 

un i twr i t e( 8 ,mai 1 [2 ] , ( lengt h(mai 1 ) - 1),, 16396); 
unit wr i t e ( 8 , ret, 1, ,16396); 
end { dof 1 ] ; 



process busy; 



procedure dof2; 



I The OS does not tolerate a user program I 
I that has every process totally blocked. i 
I This process has lower priority than the I 
I main program, and cannot be blocked itself, | 
i since it doesn't wait on anything. If it i 
I is scheduled, it will be pre-empted sooner I 
I or later by another task of higher priority. I 



beg i n 

end { dof 2 ] ; 



procedure dof3; 
beg i n 

end { dof 3 } ; 



beg i n 

while not quitting do {waste time}; 
s i gna 1 (reply) ; 
end {busy}; 



procedure dof<f; 
beg i n 

end {dof^}; 



process docker; 



procedure dof5; 



{ - + 

I This process has the highest priority, and I 
I ensures that there will be an opportunity i 

I for task switching at one-second intervals. I 

I The signaK reply) ensures that the program 
I doesn't become deadlocked due to a lost ! 

I character echo. j 

+ - } 



begin 

while not quitting do 
beg i n 

wa i t ( t i ck ) ; 
s i gnal (reply); 
end ; 

at t ach(ni 1 ,ciocksig) ; 
end {cl ocker } ; 



process dumper; 



t 

I This process lies dormant until a file is I 
I opened for transmission by procedure dof5. I 
I It then transmits the text a line at a time, I 
I putting a local copy on the console, and waitsl 
I for the echo of the carriage return. (This I 
I delay avoids overrunning the Telenet input I 
I buffers, which were set up with human typists | 
I in mind.) A possible deadlock could occur if I 
! the echo is lost, but can be cured by enteringl 
I a carriage return from the keyboard. During I 
I this process, the getrem process does not put I 
i echoed chars to the screen or log file. I 
+ } 



var 



s : s t r i ng [255 ] ; 



beg i n 

at t ach( ni 1 , keys i g) ; 

l — - — + 

I We need to temporarily de-attach the keyboard I 
i signal, in order to do an ordinary readln of 1 
I the file name , I 

} 



{$!-} 



{ $ I + } 



wr i tel n ; 
j *= 99; 



repeat 

write('Enter name of text file ', 

'to transmit, or <esc> <ret> -->'); 
readln( f name) ; 
if fnametl] <> chr(27) 
t hen 

beg i n 

fname := concat ( f name, '. text 1 ) ; 
reset (gg, fname) ; 
j := ioresult; 
if j <> 0 then 

writein('No such file'); 
close(gg) ; 

end 

else 

j := 0; 
until j = 0 ; 



if fname[i] <> chr(27) then 
begin 

reset ( gg, fname) ; 
wr i t e 1 n( ' "~“Transmi 1 1 
’ — '); 

dumping := true; 
s i gna 1 ( godump) ; 
end ; 



ing 



File: 



1 , f n ame , 



{ 

I Now, we can re-attach the semaphore to the 
I keyboard interrupt so that the getkey process 
I can handle characters. 



+ 



} 
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attach(keyready,keysig); 
end { d o f 5 } ; 



procedure dof6; 
beg i n 

uni twr i te(8 ,al tuser [2 ] , ( 1 engt h(al tuser ) -1 ),, 16396) ; 
unitwrite(8,ret , 1 , , 16396) ; 
for j := 1 to 2000 do {waste time]; 
uni twr i te(8, al t pas s [ 2 ] , ( 1 engt h( al tpass)-l) ,,16396) ; 
uni twri te(8 , ret , 1 ,, 16396) ; 
end { d o f 6 } j 

procedure dof7; 

begin ' 

unitwrite{8 , username [2 ] , ( 1 engt h( use r name) -1),, 16396); 

unit write(8, ret, 1,, 16396); 

for j := 1 to 2000 do {waste time}; 

uni twr i te(8 , password[2 j , ( 1 eng t h ( pas sword ) - 1 ),, 16396) ; 
uni twr ite(8 , ret , 1 , , 163 96) ; 
end {dof7}; 



procedure dof8; 
begin 

un i twr ite{8,logoff[2],(length(logoff)-l),,16396); 
uni twr ite(8, ret, 1,, 16396); 
quitting := true; 
end {dof8); 



process getkey; 

{ 

IThis process is activated by a character being I 
Iplaced in the keyboard queue. The speciaikey | 
Ifunction returns TRUE if the key is one of the I 
I ’ F 1 * thru 'F8 1 keys on the 911 VDT, and trans- I 
Mates the keys to ASCII '1' thru 'S'. I 




function speciaikey: boolean; 

begin {speciaikey} 

speciaikey := false; 
if ord(ch) in [146. .153} then 
beg i n 

ch := chr(ord(ch) - 97); 
speciaikey := true; 
end ; 

end {speciaikey}; 



begin {getkey} 
repeat 

wait (keyready) ; 
if not quitting 
then 

beg i n 

{get from keyboard} 
unitread(2,keych,l ,,12) ; 
ch := keych[0]; 
if speciaikey 
then 

beg i n 



case ch 


of 


' 1 ' : 


dof 1 


'2' « 


do f 2 


'3 ' ! 


dof 3 


'4 ' i 


dof 4 


'5' : 


dof 5 


’6' i 


dof 6 


’ 7 ' : 


dof 7 


'S’* 


dof 8 


end {CASE} 



end 

else {not speciaikey} 
beg i n 

{put to remote} 
un i twr i t e( 8 , keych , 

end 

end 

else {if quitting] 
beg i n 

attach(ni 1 ,keysig) ; 
end ; 

until quitting; 
end {getkey] ; 



,,16396); 



process getrem; 
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{ + 

IThis process is activated by a character being I 
Iplaced in the remote queue. The echoed chars I 
lare normally placed in the logfile, except for I 
(control chars, and during file transmission, I 
(since the echo is unreliable from Telenet, and I 
(another copy of the text is not needed. I 
♦ ] 



va r 



iord: integer; 



beg i n 

repeat 

wait ( remready) ; 
if not quitting, 
t hen 

begin 

{get from remin} 
unitread (7, remch , 1 , , 1 63 84 ) ; 
ch ;= remch[0] ; 
iord ; = ord(ch) ; 
if iord <> 10 then 
beg i n 

if not dumping then 
begin 

{put to screen} 
unitwrite(l, remch , 1 ) ; 
signal(reply) ; 
end ; 

end ; 

if dumping and (iord = 13) then 
signal (eol echo) ; 
if not dumping 

then 

if ( iord = 13) 

or ((iord > 31) and (iord < 127)) 
then 

begin 

buf f [ pt r ] : = ch ; 
pt r : = pt r + 1 ; 
i f • pt r = 1024 t hen 
beg i n 

pt r := bi ockwr i te( f f , 
buf f ,2 ) ; 
pt r : = 0 ; 

f illchar(buff , 1 024 , chr ( 0 ) ) 
end; 

end; 

end 

else {quitting} 
beg i n 

at t ach( ni 1 , rems i g) ; 
end ; 

until quitting; 
end {get remj ; 

procedure initialize; 



( _____ ____ K 

(Initializes all the strings, and opens the ! 
(next available logfile on the default volume. I 
lUnitclears the remote and console units. ! 
+ } 



beg i n 

ret [0] : = chr( 13) ; 

{The four strings which follow need to be changed 
to the appropriate values for each user. Note 
the unused at the beginning, which is used to 

force word alignment for those PMEs that are 
sensitive to word alignment on unitwrites.} 



username := 
password := 
al t use r : = 
al t pass : = 
logoff := 
mail : = 
termtype := 
dump i ng 



: xxxxxxxx ' 
: xxxxxxxx 1 
: xxxxxxxx ' 
: xxxxxxxx ' 
! bye ' ; 

:Ma i 1 1 ; 

:D1 ' ; 
false; 



{$!-] 



quitting : = false; 



i »= 0; 
j '•= 0; 
repeat 



!= i + 1? 



p. s : = 
p. s[2] 
f name 



: = chr ( i + 64); 

: = co neat ( ' termlog 1 ,p.s, ' .text') ; 
reset(ff ,f name) ; 
j := ioresult; 
if j = 0 
t hen 




cl ose( f f , 1 ock) 
el se 

cl ose( f f ) ; 
unt i 1 j <> 0 ; 

£$ I + } 

rewr 1 te( f f , f name) ; 
fillchar( buff, 1024, chr(O)); 
ptr := blockwrite(f f ,buf f ,2) ; 
pt r t = 0 ; 
uni tciear( 1 ) ; 
uni tel ear ( 7 ) ; 

■unitclear(8) ; 
end { init ial ize) ; 



begin {main} 
initialize; 
wr i t e( chr ( 1 2) ) ; 

wr i teln( 'Wai t ing for connection...'); 

writeln< ' 214\748-0127 (300) . . . 2 1 4 \ 748-637 1 (1200)'); 

repeat 

p . onl ine ; = false; 
uni t st at us(7 ,p.a , 1 ) ; 
unt i 1 p. onl ine; 

un i t cl ear ( 7 ) ; 

writeln('Use FI for ''Mail 11 corrmand'); 
writeln('Use F5 to select transmit file'); 
writeln('Use F6 for Alternate user'); 
writeln('Use F7 for Username/password'); 
writeln('Use F8 for Quitting'); 
unitclear( 1 ) ; 

semi n i t ( remready , 0) ; 
semi nit (keyready,0); 

■ seminit ( godump,0); 
semi ni t ( reply , 0 ) ; 
semi ni t ( t i ck , 0) ; 

attach( t i ck ,c 1 ocks i g) ; 
attach< remready, rems ig) ; 
attach (.key ready ,keysig) ; 

start( get key , p i d, 800 , 142 ) ; 
start( get rem, pi d , 300 , 1 40) ; 
start( dumper , pid ,500 , 129) ; 
start(clocker,pid,500,145) ; 
start( busy , pid, 200 , 120) ; 

{ Get Telenet's attention by sending 2 carriage returns 
at human speed, then define the video terminal} 

for i != 1 to 1000 do {waste time}; 
unit write(8, ret, 1,, 16396); 
for i := 1 to 1000 do {waste time}; 
unit write(8, ret, 1,, 16396); 

for i : = 1 to 1000 do {waste time}; 
unit write(S , t ermt ype [2 ], 2, ,163 96); 
unit write(8, ret, 1,, 16396); 

r epeat 

wai t ( reply) ; 
unt i 1 quitting; 

if ptr <> 0 t hen 

ptr «= bl ockwr i t e( f f , buf f ,2 ) ; 
c 1 ose( f f , 1 ock) ; 

signal(keyready) ; 
signal ( remready) ; 
s ignal (godump) ; 

at tach( ni 1 ,c 1 ocks i g) ; 
attach(ni 1 ,keysig) ; 
at tach( ni 1 ,remsig) ; 

for i s= 1 to 3000 do {waste time}; 
wr i tel n ; 

wr i te 1 n( ' Ret urn i ng to PascalSystem' ) ; 
end { telemai 1 } . 



Appendix 2 

{ + 

I Terminal emulator program tutorial. I 

! Provides basic TTY emulation only. I 

I I 

| Uses interrupts from the keyboard, remote, I 

I and i-second interval timer, ATTACHed to I 

t SEMAPHORES which are WAITed on by several ! 

I PROCESSes. I 

I I 

i Fritz Whittington, Texas Instruments, Inc. I 

j 

program tutorial; 

const 

clocksig = 16; 
keys ig = 17; 
r ems i g = 18; 



tick, 
key ready , 

remready; semaphore; 
pid; process i d ; 
keych , 
remch , 

chs char; 

quitting: boolean; 
process busy; 



I The 05 does not tolerate a user program I 

t that has every process totally blocked. I 

I This process has lower priority than the I 

! main program, and cannot be blocked itself, I 

I since it doesn't wait on anything. If it ! 

I is scheduled, it will be pre-empted sooner I 

I or later by another task of higher priority. I 

- } 

beg i n 

while not quitting do {waste time}; 
end { busy } ; 



process docker; 

{ - -+ 

I This process has the highest priority, and I 

I ensures that there will be an opportunity j 

I for task switching at one-second intervals. I 

* } 

beg i n 

while not quitting do 
wai t ( t i ck) ; 
end {docker } ; 

process getkey; 



iThis process is activated by a character being I 
Iplaced in the keyboard queue. I 



begin {getkey} 
repeat 

wait (keyready) ; 

{get from keyboard} 
unitread(2, keych, 1 , ,12) ; 

{put to r emo t e } 
unitwrite(8, keych, 1 , ,16396) ; 
unt 1 1 qu i 1 1 i ng ; 
end {getkey} ; 

process getrem; 

{----- _____________ 

IThis process is activated by a character being I 
Iplaced in the remote queue. I 

} 

beg i n 

repeat 

wa i t { remready ) ; 

{get from remin) 
unitread(7, remch , 1 , , 1 63 84 ) ; 

{put to screen} 
unitwrite(l, remch , 1 ) ; 
until quitting; 
end {get rem} ; 

procedure initialize; 
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{ 

lUnitclears the remote and console units. I 

+ - — } 



beg i n 

quitting s= fal se; 
unitclear( 1 ) j 
un i t c 1 ear ( 7 ) ; 
unitclear(8) ; 
end {initialize}; 

begin {main] 
initialize; 



semi ni t ( remready , 0 ) ; 
seminit(keyready,o) ; 
semi ni t ( tick ,-0 ) ; 

attach( t ick,clocksig) ; 
at t ach( remready , r ems i g) ; 
at tach( key ready , keys i g) ; 

start( get key , p i d , 800 , i 42 ) ; 
start( get rem, pi d , 500 , 1 4 0 ) ; 
start (docker, pid, 500 , 145) ; 
start( busy , p i d , 200 , 1 20 ) ; 

repeat 

wai t ( t ick) ; 
unt i 1 quitt ing; 

{Note that, there is no provision for quitting, and that 
the^higher priority) process docker is also waiting 
on tick.] 

end {tutorial}. 



T2WPUNIT Interface Description 

The text formatter program generates a print-stream 
which may be directed either to a file or to a printer. If 
the print- stream is directed to a file, it may subse- 
quently be printed with the de-spooling program. Both 
of these programs interface with the physical printer by 
means of a unit T2WPUNIT which contains a signal 
public procedure WPINTERFACE(ch: char) to which 
the print-stream is sent byte-by-byte. 

UNIT T2WPUNIT; 

INTERFACE 

procedure wpinterface(ch: char); 

IMPLEMENTATION 

var 

first_time: boolean; 
procedure wpinterface; 
begin 

if first_time then 
begin 

first_time := false; 

{here initialize printer] 
end; 

{here process print-stream byte ch] 
end {wpinterface}; 

BEGIN {T2WPUNIT} 

first_time := true; 

END {T2WPUNIT}. 

For documents printed in fixed-pitch mode, the 
print-stream is a simple ASCII stream. Each line of 
print is sent from left to right and terminated by a CR. 
The CR is usually followed by one of more LF’s ac- 
cording to the amount of paper movement required be- 



tween lines. However, where overprinting is required 
(e.g. for underlining), the CR is not followed by a LF. 
For fixed-pitch printers which are not capable of over- 
printing (because they have no non-advancing end-of- 
line function), the WPINTERFACE driver can throw 
away all characters after a CR until a LF is encoun- 
tered. When single-forms mode is selected, the print- 
stream contains an ASCII group-separator character 
GS to signify that the driver should pause for a new 
sheet of paper to be positioned (or possibly should ac- 
tivate an automatic sheet feeder). 

For documents printed in variable-pitch mode, the 
print stream contains tightly encoded information on 
horizontal printhead movement, vertical paper move- 
ment, print-element character selection, hammer en- 
ergy, special print effects, and single-forms control. 
Such variable-pitch information is always introduced 
in the print-stream by the ASCII sequence NUL-NUL- 
SO to indicate to the WPRINTERFACE driver that 
variable-pitch mode is required. The driver must de- 
code the print-stream and produce the requested printer 
actions. The following page defines the contents of the 
print-stream when in variable-pitch mode. 

Appendix 3 

Variable-Pitch Print-Stream Description 

Drivers are instructed to enter variable-pitch mode 
by the sequence NUL-NUL-SO, and to leave variable- 
pitch mode by the sequence NUL-NUL-SI. Once in 
variable-pitch mode, the driver must respond to the fol- 
lowing character sequences: 

Type is (2 bytes) Irrr rrrr eeem nrnTrm 

Type 2s (2 bytes) Oidd r t m rm rrrnrm rrmrm 

Type 3s (1 byte) OOcc cccc 

wheres 



rrrrrrr = 7-bit character (code or rotation) 



eee = 3-bit hammer energy (zero if n/a) j 

m...m = 5-bit or 12-bit movement distances { 

in 1 /120-inch increments for horizontal movement I 

in 1/48-inch increments for vertical movement j 

dd = 2-bit movement directions j 

00 = right (forward tabulation) J 

01 = left (reverse tabulation) ; 

10 = down (forward line feed) | 

11 = up (reverse line feed) 1 



ccccc = 5-bit special action codes 

NUL = no action 

GS = pause after single form 

BS = set direction = backward 

HT = set direction = forward 

CR = home printhead,, set direction = forward 

ESC = next Type-1 sequence defines underline 

51 a return to fixed-pitch mode 

Any Type-3 byte value from 30 to 3F hexadecimal sets special-effectss 



byte = 0011 xdbu wheres 

u = underscore mode 
b = boldface mode 
d = double-strike mode 
x a (not defined yet) 

Type-1 sequences cause the print-head to move 
mmmmm 120ths of an inch to the left or right (which- 
ever was set by the last Type-2 or Type-3 sequence), 
and then the character rrrrrrr to be printed with hammer 
energy eee. 
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($N+) 

UNIT T2WPUNIT; 

{UNIT lor the NEC Spinwriter with parallel card 
and using ABSOLUTE SPOKE mode) 

INTERFACE 

PROCEDURE wpinterface(chi char); 

IMPLEMENTATION 

const 

wpcru = 64; [base address of interlace card] 

[cru output bits) 

restore = 12; {sbo to restore, sbz to run) 
selecti = 16; {sbo to select) 

riblft = 20; {sbo lor lower ribbon part (black)) 

hallsp = 11; {lsb ol horizontal movement] 
waybit * 10; {sbz = right or down (head wrt paper)) 

lpback * 13; [sbo to read bits back lor test) 

pwstb = 18; (print wheel strobe) 

plstb = 17; {paper lee d strobe) 

carstb a 19; (carriage strobe) 



{cru input bits) 



22 ; 
= 21 ; 
- 20 ; 
= 16; 
a 17; 
= 18; 



papout 
ribout 
pcheck 
pready 
pi ready 
pwready 
carready a 19; 
type 

onebit a 

twobits a 

threebits a 

nibble a 

1 i vebi t s a 

sixblts a 

sevenbits a 

ubyte a 

twelvebits a 

bits a 

typekind a 

waykind a 

t3kind a 

act ionkind a 



( t rue 
it rue 
( t rue 
( t rue 
£ t rue 
( t rue 
(true 



paper out) 
ribbon out) 
printer in check) 
printer ready) 
paper leed ready) 
print wheel ready) 
carriage ready) 



0 .. 1 ; 

0 . . 3 ; 

0..7; 

0..15; 

0. .31 ; 

0..63; 

0..127; 

0..255; 

0. .9095; 

packed array [Q..I5] ol boolean; 
(type3,type2,typeia,typelb); 

( r i ght , 1 el t , down , up) ; (direction ol head wrt paper) 
(action,s_effects) ; 

(prefix, udl,ud2,ud3,uv4,ud5,ud6,ud7, 
set back, set norm, udl0,udll,udl2, home, entervp, ex i t vp , 
udl6,udl7,udlS,udl9,ud20,ud21,ud22,ud23, 
ud24,ud25,ud26,setus,ud28,holdit,ud30,ud31); 

{lor byt e-swapp ing ) 



packed record 


{ f or 


r_bytei 


ubyte ; 


l_bytei 

end; 


ubyte; 


packed record 


{for 


movement i 


1 i vebi t s ; 


energy! 


t hreeb its; 


rotation i 


sevenbi t s ; 


istypel i 
end ; 


boolean; 


packed record 


{lor 


movement t 


twel veb i t s ; 


direct ioni 


waykind; 


whichtypei 

end; 


typekind; 


packed record 


{lor 


res 1 1 


ubyte; 


t3act ioni 


act ionkind; 


whicht3 i 


t3kind; 


whichtypei 


typekind; 


end ; 




packed record 


[for 


resl i 


ubyte; 


us_om 


boolean ; 


bf_om 


boo lean; 


ds_om 


boolean; 


xx_om 


boolean; [ 


res2 1 


oneb i t ; 


whicht3i 


t 3k i nd ; 


whichtypei 
end ; 


typekind; 



2 comnands) 



3 commands- actions) 



3 comnands- ellects) 



{not currently used) 



{word5 is just an integer and is denoted by i 5 ) 

{lor 1335 Diablo in Rib. Opt. 2) 
sevenb its; 
threebi t s ; 
twobi t s; 
nibble; 



word6 



packed record 
spoke i 
ribboni 
energy i 
res 1 1 
end ; 

(word7 is a packed array ol bits) 



words 



packed record 

spokei 

abs t 

energy i 

res! J 

end ; 

packed record 
case integer ol 



{lor NEC Spinwriter in Absolute mode) 

sevenb i t s ; 

boolean ; 

threebits; 

livebits; 



01 


(wOi 


wordO ) ; 


li 


(wl I 


wo r d 1 ) ; 


2 1 


(w2 1 


word2) ; 


3 t 


(w3 i 


word3 ) ; 


4 1 


(w4i 


word4 ) ; 


3 1 


( i 5 1 


integer) 


6 1 


(w 6 1 


word6) ; 


7 1 


(bits 


bits) ; 


Si 

end 


(w8i 


words ) ; 


,cruwordi 


urec ; 



intypel , intype2 , inusdel ,1 ixedpi tchi boolean; 
vdir,hdiri waykind; 

bold,dubstrike, under 1 i ning i boolean ; 
vrt pos , horpos , nu Icount t Integer; 
first_timei boolean; 

PROCEDURE CPU IDLE; EXTERNAL; 

PROCEDURE SETBASE(CRUBASEt INTEGER) ; EXTERNAL; 

PROCEDURE CLEARBIT(BITNUMi INTEGER) ; EXTERNAL; 

PROCEDURE SETBIT(BITNLMi INTEGER) ; EXTERNAL) 

PROCEDURE LQADCRU(DATA,b*JS<CITSi INTEGER) j EXTERNAL; 

PROCEDURE STORECRU( VAR DATAt INTEGER; NUMB ITS; INTEGER) ; EXTERNAL) 
FUNCTION TE5TBIT(BITNUMt INTEGER) l BOOLEAN; EXTERNAL) 

PROCEDURE wpinterlace; (• PUBLIC PROCEDURE, PARAMETERS DECLARED ABOVE 
procedure check_ready; 



var 

chi char; 
ackedi boolean; 

pai packed array [0..10] ol integer; 
begin {check_ready ) 

cpuidie; {allow cpu to idle until interrupt) 

il ( (not testbi t (pready) ) 
or 

(testbit( papout ) ) 
or 

( test bi t ( r ibout ) ) 
or 

(testbit(pcheck)) 

then 

begin 

uni t c 1 ear ( 1 ) ; 
acked is false; 
while not acked 
do 

beg i n 

wr i t e( chr ( 1 3 + 1 2 8 ) ) ; {Return without auto linefeed) 

wr i t e ( ' Pr i nter needs attention- press < space> ' ,chr ( 7 ) ) 
cpuidie; 
pa[0] i= 0; 

un i.t s t at us( 1 , pa , 1 ) ; {get number ol keys buffered for 
il pa(0] <> 0 then read(keyboard,ch) ; 
i 1, ch = ' ' then acked is true; 
end ; 

uni t c 1 ea r ( 1 ) ; 
got oxy (0 ,100); 

wr i teln( 'Correct printer condition (paper, ribbon, cover) 
wr i t e 1 n; 

wr i t e 1 n( ' Pr i nt i ng will resume when <enter> is pressed'); 
repeat read( key board , ch) until ch s chr(160); 
end ; 

end; (check_ready) 
procedure hardinit; 
var 

ii integer; 
beg in {hardinit) 
cruword. i 5 is 0 ; 

1 oadcru ( cruword. i5 , 1 6) ; 
se t bi t ( select ) ; 
setbit(restore) ; 
clearbit(pfstb) ; 
c 1 ear bi t ( pwstb) ; 
ci ear bi t ( carstb); 
set bi t < r ibl f t ) ; 
for i is l to 500 do; 
ciearbit(restore); 

i is 1; 

while (i < 3000) and ( t es t bi t ( pready ) = false) 

do i i s i + 1 ; 

il not tes tb i t ( pready ) 

then 

begin 

wr i teln( 'Cannot open printer'); 
end; 

check_ready ; 

end; (hardinit) 

procedure print_it(ki urec); 

var 

timeout, ii integer; 
begin (print_it) 
check_ready ; 
cruword, i5 is 0; 

cruword. w8 . spoke i= k.wl . rotat ion ; 
cruword .w8 . ene rgy is k.wl. energy; 
cruword. w8 . abs is true ; 

1 oadcru (cruwor d . i 5 , 1 2 ) ; 

ii t est bi t ( papout ) then check_ready; 
t imeout i=l; 

while (timeout < 30000) 
and 

(not test bi t ( pwready) ) 
do 

beg i n 

check_ready ; 
timeout is timeout + 1; 
end ; 

set b i t ( pwstb) ; 
c lea r bi t ( pwstb) ; 
end; {print_it) 

procedure move.car r i age( howlar i integer; whichwayi waykind); 
var 

t imeout , t empmove , bi groove , lsb, lead! integer; 
begin (move.car r iage ) 

il whichway a right then horpos t= horpos + howfar 
else horpos is horpos - howfar; 

check_ready ; 

il not underlining 

then 

begin 

whi le howlar > 0 
do 

begin 

il howfar > 1023 then tempmove i= 1023 else tempmove i 
howfar is howlar - 1023; 
bigmove i = tempmove div 2; 
lsb is tempmove mod 2; 

il lsb = 1 then set bi t ( hal 1 sp) else cl earbi t (ha 1 1 sp) ; 
case whichway of 

righti c 1 earbi t (way bi t ) ; 
lefti set bi t (wayb i t ) ; 

end ; 

1 oadcru ( bi gmove , 10) ; 
t imeout is 1 ; 
while (timeout < 30000) 
and 

(not t est b i t (car ready ) ) 
do 

beg i n 

check_ready ; 

timeout is timeout +1; , 

end; 

setbit(carstb); 
cl ear b i t (carst b) ; 
end; {while howfar > 0) 



{clear all data lines) 
(select the printer) 
(tell it to restore) 
{deactivate strobe line) 
(deactivate strobe linej 
(deactivate strobe line) 
{raise the ribbon) 

{waste some time) 

(let go ol restore line) 



i nput ) 



); 



howfar ; 
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end {of then clause on "if not underlining" } 
eise {if underlining} 
beg i n 

while howfar > 0 
do 

begin 

printit(usrec) ; 
case whichway of 

righti clearbi t (waybi t ) ; 
left: set b i t (waybi t ) ; 

end ; 

bigmove : = 0; (that is 0/60ths! 

set bi t ( hal f sp) ; (+ l/120th I 

howfar t= howfar - ij 
1 oadcr u( b i gmove , 1 0) j 
timeout : = 1; 
while (timeout < 30000) 
and 

(not t es t b i t (car ready ) ) 
do 

beg i n 

check_ready ; 
timeout : = timeout + 1; 
end ; 

setbit(carstb) ; 
clear bi t (car st b) ; 
end) (while howfar > 0} 
end; {of the "if not underlining") 
end; {move_car r i age ) 

procedure move_paper( howfar : integer; whichway: waykind); 
var 

t imeout , t empmove : integer; 
begin {move_paper} 

if whichway = down then vrtpos := vrtpos + howfar 
else vrtpos is vrtpos - howfar; 
check_ready ; 
setbit (hal f sp) ; 

case whichway of {DOWN means printhead down, paper UP) 

downi clearbit (waybi t ) ; 
up : set bi t (waybi t ) ; 

end; 

while howfar > 0 
do 

begin 

if howfar > 1023 then tempmove := 1023 else tempmove := howfar; 
howfar howfar - 1023; 

1 oadcru( tempmove , 10) ; 
timeout := 1; 
while (timeout < 30000) 
and 

(not testbit(pf ready)) 
do 

begin 

check_ready ; 
timeout := timeout + I; 
end ; 

setbit (pf stb) ; 
clearbit(pfstb); 
end ; 

end; {move_paper} 
procedure home_head; 
begin (home_head} 
hdir : = left; 

move_carr iage(horpos,hdi r) ; 
hdir := right; 
horpos : = 0; 
end; {home_head) 
procedure turn_vp; 
begin (turn.vp) 

fixedpitch : = false; 
end; (turn_vpj 
procedure turn_fp; 
begin {turn_fp} 

fixedpitch := true; 
end; {turn_fp} 
procedure initialize; 
begin 

intypel : = false; 
intype2 false; 
fixedpitch := true; 
nulcount := 0; 
inusdef := false; 
setbase(wpcru) ; 
vdir := down; 
hdir := right; 
us rec . i 3 : = 0 ; 
usrec.wl .istypel := true; 
bold : = false; 
dubstrike := false; 
underline : = false; 
vrtpos :=.0; 
horpos := 0; 
hardini t ; 
t ur n_f p ; 
home_head; 
end ; {initialize} 
procedure ex_pause; 
var 

eg: char; 
begin {ex_pause} 

writeln( 'Printing suspended by (single forms]'); 
wr i t el n( ' Pr i nt ing will resume when <enter> is pressed'); 
repeat read(keyboard.cg) until eg = chr(160); 
end; (ex_pause) 
procedure ex_typel; 
var 

saveusf: boolean; 
bdir: waykind; 
howfar: integer; 
begin [ex_typel} 
if inusdef 
then 
begin 

usrec.i5 := outrec.i5; 
inusdef : = false; 
exit(ex_typel) ; 
end; 

howfar : = out rec, wi .movement ; 



move_carr iage( howfar, hdir) ; 
pr i n t_i t ( out rec ) ; 

if dubstrike and (not bold) then pr i nt_i t ( out rec ) ; 

if bold- 

then 

begin 

case hdir of 

right: bdir := left; 

left: bdir := right,; 

end; 

saveusf := underlining; 
under lining := false; 
move_carriage(l,hdir); 
pr int_i t ( ou t r ec ) ; 
print_it(outrec); 
move_car r i age( 1 , bd i r ) ; 
pr i nt_ i t ( out rec) ; 
underlining := saveusf; 
end ; 

end; {ex_typel} 
procedure ex_type2; 
var 

howfar: integer; 
begin {ex_type2} 

case out rec .w2 . d i rect ion of 
right i hdir := right; 
left: hdir : = left; 

down: vdir := down; 

up: vdi r : = up; 

end ; 

if (out r ec .w2 . d i rect i on = down) or (out rec .w2 . di r ect i on = up) 

then 

begin 

howfar := out rec .w2 .movement ; 
move_paper(howfar,vdir) ; 

end 
e 1 se 
begin 

howfar : s out rec. w2 .movement ; 
move_car r i age ( howfar , hd i r ) ; 
end ; 

end; {ex_type2} 
procedure ex_type3; 
begin {ex_type3} 
if nulcount = 2 
then 
beg in 

nulcount : = 0; 
end ; 

if outrec.w4.whlcht3 = action 

then 

begin 

case out rec .w3 . t 3act i on of 

prefix: nulcount := nulcount + 1; 
setback: hdir := left; 
setnorm: hdir := right; 
home: home_head; 

entervp: turn_vp; 
exitvp: turn_fp; 

setus: inusdef := true; 

holdit: ex_pause; 

end; lease) 

end 
e 1 se 
begin 

if out rec .w4 . bf _on then bold := true else bold : = false; 

if out rec .w4 . ds_on then dubstrike := true else dubstrike := false; 

if ou t r ec . w» . u s_on then underlining := true else underlining 

false; 
end ; 

end; (ex_type3) 
procedure process_it; 
var 

pa: packed array [0..1] of char; 
begin {process_it} 

if fixedpitch and (ch <> chr(0)) and (nulcount <> 2) 

t hen 

begin 

pa[0] := chr ( ord(ch) ) ; 
unitwrite(6,pa,l,,12); 
exit ( pr ocess_i t ) ; 
end ; 

if intypel 
then 
beg in 

out r ec . wO . r_by t e := ord(ch); 
intypel : = false; 
ex_typei ; 
ex i t ( process_i t ) ; 
end; 

if intype2 
t hen 
beg i n 

out rec . wO . r_by t e := ord(ch); 
intype2 : * false; 
ex_type2 ; 
ex i t (pr oces5_ it); 
end; 

i nr ec .wO . l_by t e := ord(ch) ; 
if i nrec .w2 .wh icht ype = type3 
t hen 
begin 

outrec.wO. l_byte := ord(ch); 

ex_type3 ; 

ex i t (process_i t ) ; 

end 
e 1 se 
begin 

if inrec .wl . i s t ypel 

t hen 

begin 

out rec .wO . i_by te := ord(ch); 
intypel := true 

end 
el se 
begin 

outrec.wO. l_byte := ord(ch); 
intype2 := true; 
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r5 



i Execute it 
i Done 



end ; 
endj 

end; {process_it) 
begin ( wp i nt e r face ) 

ii first_time then 
beg i n 

lirst_time n false; 

initialize; 

end; 

process_it ; 

end; { wp i n t e r face ] 

BEGIN (T2WPUN1T) 

f jrst_t ime ; = true; {UNIT initialization) 

{no UNIT termination) 

END { T2WPUN1 T) . 



Machine code for the external functions 



.proc 


machine 




1 imi 


1 


; To simulate the effect of a 


biwp 


<ag 


; Machine check (level 2 interrupt) 


b 


*r 1 1 




. proc 


cpuidle 




idle 






b 


* r 1 1 




.proc 


setbase,l 




. del 


crubase ,ws 




;pascal declaration; 




; procedure setbase(i; integer); 


externa J ; 


; where i is the 


crubase desired 


( decima i ) 


}990 instruction is 


: 1 i 


r 12 , i 


mov 


* r 10+ , crubase 


; Pop stack into private storage 


b 


* r 1 1 


; Return to pascal 


crubase .word 


0 




ws .block 


32 


; Workspace for the others 


.proc 


set bi t , 1 




.ref 


crubase, ws 





pascal declaration; 

procedure setbit(i> integer); external; 
where i is the bitnumber desired 



; 990 


instruct ion 


is; sbo 


i 


’ 


mov 


* r 1 0+ ,ws+2 


; Pop stack into new rl 




bl wp 


start 


; Do the stuff 




b 


* r 1 1 


; Return to pascal 


start 


.word 


ws , ep 




i ns t 


sbo 


0 


; inst ruct ion mask 


ep 


mov 


crubase, r!2 


; Get current base from private storage 


mov 


inst , r5 


; Op code lor sbo 




andi 


rl ,00f fh 


; insure parm passed is 00 in first byte 




5 OC 


rl ,r5 


; R5 now has proper sbo instruction 




X 

rtwp 

.proc 


r5 

cl earbi t , 1 


; Execute it 
; Done * 




. ref 


crubase, ws 




;pasca] declaration; 




; procedure clearbit(i; integer); 


external ; 


; where i is the bitnumber desired 


; 990 


inst ruct ion 


is; sbz 


i 


’ 


mov 


*r!0+,ws+2 


; Pop stack into new rl 




biwp 


start 


; Do the stuff 




b 


* r 1 1 


; Return to pascal 


start 


.word 


ws , ep 




i nst 


sbz 


0 


; Instruct ion mask 


ep 


mov 


crubase , r i 2 


; Get current base from private storage 




mov 


inst , r5 


; Op code for sbz 




andi 


rl , 00 f f h 


; insure parm passed is 00 in first byte 




soc 


rl ,r5 


; R5 now has proper sbz instruction 



rtwp 

.proc loadcru,2 

.ref crubase,ws 

pascal declaration; 

procedure loadcru(i,j; integer); external; 





where i is the 16-bit pattern 


desired, j is number of bits 


; 990 


instruct i on 


is; 1 i 


rx, i 






1 dcr 


rx, j 




mov 


* r 1 0+ ,ws + 2 


; Pop it of bits into new ri 




mov 


* r 1 0+ , ws + 4 


; Pop data word into new r2 




biwp 


start 


; Go do it 




b 


* r 1 1 


; Return to pascal 


star 


t .word 


ws , ep 




inst 


J dcr 


r2 ,0 


; inst ruct ion mask 


ep 


mov 


crubase , r 1 2 


; Get current base from priv 




mov 


i ns t , r5 


; Puts 'idcr r2,0‘ instruct 




andi 


rl ,000f h 


; Mask it of bits to 0-15 




s 1 a 


rl ,6 


; Shift to spot required in 




soc 


r 1 , r5 


; Or into r5 




X 


r5 


; Execute it 




rtwp 




; Done 




.proc 


storecru ,2 






.ref 


crubase ,ws 





instruct i on 



;pascal declaration; 

; procedure storecrufvar it integer; }: integer); external; 
; where i is the 16-bit result area, j is number of bits 
1 

;990 instruction is; stcr rx,j 

; mov rx , i 





mov 


*r 10+ ,ws+2 




mov 


* r 10+ ,ws + 9 




biwp 


start 




b 


* r 1 1 


start 


• word 


ws , ep 


inst 


stcr 


*r2 , 0 


ep 


mov 


crubase , rl2 




mov 


i ns t , r5 




andi 


rl ,000fh 




s I a 


rl ,6 




soc 


rl ,r5 




X 


r_5 




rtwp 






. f unc 


t es t bi t , 1 




.ref 


crubase ,ws 


;pascal 


declarat ion 





; function testbit(i: integer); 
; where i is the bitnumber 



; Pop H of bits into new rl 
; Pop address of data into new r2 
j Go do it 
; Return to pascai 



; Instruction mask 

; Get current base from private storage 
; Puts 'stcr *r2,0' instruction in rJS 
; Mask it of bits to 0-15 
; Shift to spot required in instruction 
! Or into r5 
; Execute it 
; Done 



boolean; external; 



>990 instruction is; tb i 

; (returns true if bit is 1) 





mov 


* r!0,ws+2 


Pop # of bits into new rl 




ai 


r!0,2 


Point to word provided on stack 


; Note- 


the stack 


pointer is left pointing to result word 




biwp 


start 


Go do it 




mov 


ws,*rl0 


Push rO of new ws 




b 


* r 1 1 


Return to pascal 


start 


.word 


ws , ep 




inst 


tb 


0 


I nst ruct ion mask 


ep 


mov 


crubase, r!2 


Get current base from private storage 




ci r 


rO 


Assume bit is false 




andi 


rl ,00f fh 


Insure displacement is in range 




mov 


i nst , r5 


Get copy of instruction 




soc 


r 1 , r5 


Or in displacement 




X 


r5 


Execute test bit 




jne 


$1 


3ump if bit was false 




i nc 


rO 


if bit was 1, rO := 1 


$1 


rtwp 




Ai 1 done 




• end 




us 



By Rich Gleaves 
Volition Systems 



Rich Gleaves of Volition Systems submits the 
slides from a talk of his. I (as usual) dropped out where 
and when the talk was. I have included the first few 
slides of his talk of which the outline was as follows: 

THE TWO FACES OF UCSD PASCAL 
UCSD PASCAL _ INDUSTRY IMPACT 
UCSD PASCAL - HISTORY 
UCSD PASCAL SYSTEM VERSIONS 
UCSD PASCAL vs. STANDARD PASCAL 
UCSD PASCAL EXTENSIONS 
PROGRAM SEGMENTATION 
SEPARATE COMPILATION - UNITS 
UCSD I/O HIERARCHY 
INTERACTIVE I/O 
RANDOM ACCESS FILES 



UNIT I/O 
STRINGS 

BYTE ARRAY MANIPULATION 
DYNAMIC STORAGE 
PROCEDURE TERMINATION 
EVEN MORE TRICKS 
RECORD AND ARRAY COMPARISON 

If you would like to have the bodies for all these 
slides, please contact Volition Systems, ed. 

THE TWO FACES OF UCSD PASCAL 
• Friendly beginner’s language 

Used at UCSD to teach introductory computer pro- 
gramming to non-science students. UCSD Pascal’s 



35 



